<script>--テ雲テ韻テ厩テï」ソテェUテテ凝②テア竅テï」ソテ・テ テïャづテfunction DiceRoll Pname,OyaN,PlyNput bg field "wait" into Wput empty into Shonput cd field "abortMes" into cd field "abortTo"set the cantAbort of this stack to false -----**テ嘉ァテ叡テ丑テ「ï」ソティテコ**if "Mac " is in Pname then--Macテテεョ窶佚ツサテテティWテïャづニwait until the sound is doneset the loc of bg button 1 to 256,163set the loc of bg button 2 to 247,184set the loc of bg button 3 to 234,171--テゥテケテテクティ窶榲竏榲テput random(2) into Koroput Koro-1 into Krepeat with N=Koro+20 down to 20set the top of bg button 1 to the top of bg button 1 -N*2set the top of bg button 2 to the top of bg button 2 -N*2set the top of bg button 3 to the top of bg button 3 -N*2end repeatwait K*20+10else--テェlテ、窶佚テεョ窶佚ツサテテテァツソテッWテï」ソテゥテ甘ツ。テニ津ツョテ竕 if (item 2 of loc of bg button 1) > 80 then put 2 into Koroelse put 1 into Koroput Koro-1 into K--テツォテテ津窶佚テ凝ツゥテテテテ陛窶コティoテツオテニ津ツ「テツサテツ「テツゥif the loc of bg button 1 is not within "122,0,377,214" thenput 1 into Shonput "テ窶 テ窶 テ窶 テ窶 テ⑩" into cd field "abortTo"end ifend ifif Shon is empty then--テウテゥテ竏テツオテホゥティuテ、窶set the loc of bg button 1 to 210+random(12),183+random(12)set the loc of bg button 2 to 251+random(12),154+random(12)set the loc of bg button 3 to 228+random(12),171+random(12)end if--テゥUテテテツゥテテ暗陰テ泳テ嘉 テ㈶テ⑶テ㈳テ「テplay "chin2"repeat with K=Koro+2 down to 2put K*5 into KHput K^3 into KVset the icon of bg button 1 to "D" & random (12)set the loc of bg button 1 to random (KH+KH)-KH+216,random (KV+KV)-KV+133wait Wset the icon of bg button 2 to "D" & random (12)set the loc of bg button 2 to random (KH+KH)-KH+267,random (KV+KV)-KV+144wait Wset the icon of bg button 3 to "D" & random (12)set the loc of bg button 3 to random (KH+KH)-KH+234,random (KV+KV)-KV+161--テツオテテづテ津笳甘テ津テεィテ テウテケテ①テ㈽テ㈻テ ツサテ「竏ォテ竕暗ツオテテづテ津笳甘テ テ⑿テcテ㈲テテεlテテ「テテゥテテ陛㈽テ㈴テ⒀set the cantAbort of this stack to true -----**テ嘉ァテ叡テ丑**if (item 2 of the loc of bg button 1 < 72) or (Shon is 1) thenset the icon of bg button 3 to "D" & random (6)set the loc of bg button 3 to 216,163set the icon of bg button 2 to "D" & random (6)set the loc of bg button 2 to 267,174set the icon of bg button 1 to "D" & random (6)set the top of bg button 1 to 250play stopput "テツオテテづテ津笳甘テ津テヲテテシテテシテテシテ⑩テ⑩" into cd field "abortTo"wait 60play "Shonben"return 0exit DiceRollend ifend repeat--テ雲テ韻テ厩テ邃「テウテゥテテクテュテ姪竕 put random (6) into item 1 of Dsset the icon of bg button 1 to "D" & item 1 of Dsset the loc of bg button 1 to random (16)-8+216,random (16)-8+163wait Wput random (6) into item 2 of Dsset the icon of bg button 2 to "D" & item 2 of Dsset the loc of bg button 2 to random (16)-8+267,random (16)-8+174wait Wput random (6) into item 3 of Dsset the icon of bg button 3 to "D" & item 3 of Dsset the loc of bg button 3 to random (16)-8+234,random (16)-8+191--テァ竕暗・窶榲テε雲テ韻テ厩テ邃「テ「テ津テput "216,267,234" into DBHput "163,174,191" into DBVput random (3) into RD --テツォテテε雲テ韻テ厩テツゥif random (3) >1 thenset the icon of bg button RD to "D" & random(6)+6wait W*2+random(W*4)+20--テツョテ窶ケテ竏づツサテツ「テツオテニ津窶 テテ催ナif hilite of cd button "Omj" is true then--テツョテ窶ケテ竏づツサテツ「テテε・ツッテ「ツ set the icon of bg button RD to 3013put RD+1 into RD2if RD2 is 4 then put 1 into RD2if cd field ("point" & PlyN) < 0 then--テッテ「テテ佚邃「テァテサテテ津竕暗ツ「テテ暗竏テツエテテ陛・ツッテ「ツ テェ窶堙ォテput RD2+1 into RD3if RD3 is 4 then put 1 into RD3if (item RD3 of Ds) < (item RD2 of Ds) then put RD3 into RD2end ifput item RD2 of Ds into item RD of Dsset the icon of bg button RD to "D" & item RD of Dsset the loc of bg button RD to random (16)-8+item RD of DBH,random (16)-8+item RD of DBVelse--テァ竕暗・窶榲テε雲テ韻テ厩テ邃「テウテゥテテクテュテ姪竕 put random (6) into item RD of Dsset the icon of bg button RD to "D" & item RD of Dsset the loc of bg button RD to random (16)-8+item RD of DBH,random (16)-8+item RD of DBVend ifend if--テ雲テ韻テ厩テテεュlテï」ソテッ]テ「テクテツオテニ津ッ窶佚竏return Anal(Ds)end DiceRoll--テ雲テ韻テ厩テテεュlテテεッ]テ「テク--テ①テ㈲テ⑶テ㈼テ⑦テア竅--テ①テ㈲テ㈲テ㈲テ⑶テ㈼テ㈼テ㈼テ⑦テ云テ嘉ァテア竅テ①テ㈲テ㈻テ㈶テ⑴テ㈳テ㈵テ㈼テ⑦テャツ。テゥテ--テ①" " + テ雲テ韻テ厩テテεア竅テ㈶テ臼テ運テ⑿テ・vテ㈳テ臼テ運テ⒀テ⑦テア竅テツサテツオ--テ①テ⑿テ㈴テ⑦テツオテテづテ津笳甘テ テテ DiceRoll テャ窶。テ竕暗ィテ テウテケテ⒀function Anal Dsort items of Dput empty into item 1 of DDput item 1 of D & item 2 of D & item 3 of D into item 2 of DD--テ云テ嘉ァテア竅if item 1 of D=item 2 of D and item 2 of D=item 3 of D thenput item 2 of DD into item 1 of DDreturn DDexit Analend if--テア竅テ邃「テウテ淌ツ。テホゥif item 1 of D=item 2 of D thenput item 3 of D into item 1 of DDreturn DDexit Analend if--テア竅テ邃「テウテ淌ツ。テホゥif item 2 of D=item 3 of D thenput item 1 of D into item 1 of DDreturn DDexit Analend if--テ⑾テ㈲テ㈻テ㈶テ⑾if item 2 of DD ="123" thenput "123" into item 1 of DDreturn DDexit Analend if--テ⑾テ㈳テ㈵テ㈼テ⑾if item 2 of DD ="456" thenput "456" into item 1 of DDreturn DDexit Analend if--テア竅テ邃「テア竕・テツ「return DDend Anal</script>